Copier coller en fonction d'une colonne VBA

Bonjour,

Je ne maitrise pas vraiment le VBA , j’aimerai pouvoir faire en sorte que les données de ma feuille Source soient copiées dans ma feuille Suite en fonction de la colonne Validation. Si la cellule de la colonne A comprend un Ok alors la ligne entière sera recopiée dans la feuille Suite.

J'ai mis en place ce code pour l'instant mais il ne fonctionne pas :

Sub Bouton2_Cliquer()

Range("A2:D12").Select

Selection.Copy

Sheets("Suite").Select

ActiveSheet.Paste

Dim Ligne As Integer

'Sélection de la feuille Source

Sheets("Source").Select

Sheets("Source").Columns("A").EntireColumn.Hidden = False

Range("A2").Select

'Vérification du critère de sélection "OK"

Do While ActiveCell.Value <> "" 'Boucle tant qu'on ne tombe pas sur une cellule vide

If ActiveCell.Value Like "OK" Then

Ligne = ActiveCell.Row 'on stoke le numéro de ligne

'copie de la ligne (colonne A)

Range(Ligne, 2).Select

Selection.Copy

'La colle dans Suite

Sheets("Suite").Activate

Range("A2").Select

If ActiveCell.Value = "" Then

End If

End If

Loop

End Sub

Ci-joint mon fichier.

Si quelqu'un sait comment résoudre mon problème, je suis preneuse!

Merci d'avance pour votre aide

Bonsoir

Ci-joint une proposition à tester.

Bouben

Merci beaucoup!!

C'est exactement ce que je voulais!