Sub copie()
Dim cellule As Range
'
' Colonne 1 de la region de b = A
For Each cellule In Worksheets("ata").Range("B1").CurrentRegion.Columns(1).Cells
If Not IsEmpty(cellule) And cellule <> "" Then
Worksheets("suivi").Cells(Rows.Count, 3).End(xlUp)(2) = cellule(1, 2).Value
End If
Next cellule
End Sub