Bonsoir au Forum,
Je souhaiterais une macro qui me permette de faire 2 choses:
Dans la colonne A , j'ai une liste de nombres (de A1 à Ax)
En B1, je saisis un nombre de colonnes souhaitées, par ex: 5

1--Je voudrais, à partir de la cellule C1, déployer tous mes nombres successifs (A1,A2,A3....Ax) le long de la ligne 1 jusqu'à la 5ème colonne (car 5 en B1), donc de C1 à G1, puis continuer de G2 à C2 (sens inverse) puis continuer de C3 à G3 (re sens inverse) etc... à la manière d'un "serpentin".

2-- mettre en gras chaque nombre identique qui se trouvent dans 2 cellules juste superposées (ex: G3 et G4) et afficher le nombre de cellules en gras en B2

Je ne sais pas si c'est compliqué..et si j'ai été clair?
Merci de votre aide.
Bonne soirée à tous.

Sub test()
'Déclaration ======================
Dim X As Long
Dim Plg As Range
Dim Col As Integer
Dim Lig As Long
Dim Lim_Col As Integer
Dim Pas As Integer
Dim Tot_V As Long
'MEI ==============================
Range([C1], [C1].SpecialCells(xlCellTypeLastCell)).Clear
'effacement des colonnes de droites
Set Plg = Range([A1], [A65536].End(xlUp))
Lim_Col = 2 + [B1]
Col = 2
Lig = 1
Pas = 1
X = 1
'Copie de A =======================
Do Until X > Plg.Cells.Count
'boucler jsuq'à ce que x dépasse le nombre
'de cellules à s'occuper
Col = Col + Pas
If Col > Lim_Col Then
'si col dépasse la colonne max
Col = Col - 1
'on enlève 1 à col
Lig = Lig + 1
'ajoute 1 à ligne
Pas = -1
'inverse le pas
ElseIf Col < 3 Then
'si col est inférieure à B
Col = Col + 1
Lig = Lig + 1
Pas = 1
'idem, en inversant, sauf ligne
End If
Cells(Lig, Col) = Plg.Cells(X)
'on copie la valeur
X = X + 1
'on passe à la cellule suivante
Loop
'mise en gras ======================
For Col = 3 To Lim_Col
'col=C à dernière
'mise en gras ------------------
For X = 1 To Lig - 1
If Cells(X, Col) = Cells(X + 1, Col) Then
Cells(X, Col).Font.Bold = True
Cells(X + 1, Col).Font.Bold = True
End If
Next
'comptage ----------------------
For X = 1 To Lig
If Cells(X, Col).Font.Bold Then Tot_V = Tot_V + 1
Next
Next Col
'Message ---------------------------
MsgBox Chr(13) & "Nombre total de valeurs" & Chr(13) & _
"ayant au moins un doublon : " & Tot_V, vbOKOnly, "TOTAL"
End Sub