Copier coller dans une autre feuille a condition

Bonsoir à tous, ce code est coller dans une autre feuille si tous la ligne est vide ainsi de suite , mais je veux que si la cellule AG est vide peut coller dans cette ligne et ainsi de suite

Sub Copie_Ligne_()
Set sh1 = Sheets("coller")
Set sh2 = Sheets("BASE")
rw = sh2.Cells(10000, "AG").End(xlUp).Row + 1
sh2.Range("AG" & rw) = sh1.Range("A" & ActiveCell.Row).Value
sh2.Range("AH" & rw) = sh1.Range("B" & ActiveCell.Row).Value
sh2.Range("AI" & rw) = sh1.Range("C" & ActiveCell.Row).Value
sh2.Range("AJ" & rw) = sh1.Range("D" & ActiveCell.Row).Value
sh2.Range("AE" & rw) = sh1.Range("E" & ActiveCell.Row).Value
sh2.Range("AL" & rw) = sh1.Range("F" & ActiveCell.Row).Value
End Sub

merci

Bonsoir Nizar, bonsoir le forum,

Je n'ai pas bien compris ton problème. Ça serait tellement plus simple si tu daignais nous fournir le fichier qui va bien...