Bonjour benitoAP, le forum,
Décidément GGautier, on se croise souvent aujourd'hui,
@benito: la prochaine fois, joint un fichier avec le résultat escompté,
Un essai:....CTRL + e pour lancer la macro
Sub test()
Dim dl As Integer, i As Integer, j As Integer
For i = 1 To Sheets.Count
dl = Sheets(i).Range("A" & Rows.Count).End(xlUp).Row
For j = 1 To dl 'de la ligne 1 à la dernière ligne : à adapter
If Sheets(i).Range("A" & j) Like 123 Then Sheets(i).Range("A" & j).Copy Sheets(i).Range("B" & j)
'Sheets(i).Range("A1:A" & dl).Copy Sheets(i).Range("B1") 'copie la colonne A
Next j
Next i
End Sub
Cordialement,