Sub Macro1()
'
' Macro1 Macro
'
    Dim a, b, c As Integer


    b = 0
    c = 0

    Sheets(1).Name = "GERS"
    Sheets(2).Name = "CLIENT"
    Sheets(3).Name = "TAMPON"

    Do While Not IsEmpty(Worksheets("CLIENT").Cells(b, 1))   ' Lis toutes les lignes jusqu'à la fin
        If IsEmpty(ActiveWorkbook.Sheets("CLIENT").Cells(b, 2)) Then ' Si le CIP dans CLIENT est vide
              a = 0
              Do While Not (IsEmpty(ActiveWorkbook.Sheets("GERS").Cells(a, 1))) ' parcours toutes les lignes de GERS
                If ActiveWorkbook.Sheets("CLIENT").Cells(b, 6) = ActiveWorkbook.Sheets("GERS").Cells(a, 2) Then 'Si le CP est égal dans les 2 feuilles
                    Worksheets("GERS").Rows(a).Select
                    Selection.Copy
                    Worksheets("TAMPON").Rows(c).Paste ' on copie la ligne de GERS vers TAMPON
                    c = c + 1  ' augmente compteur feuill TAMPON
                Else
                a = a + 1   ' augmente compteur feuille GERS
                End If
              If c < 2 Then ' si il n'y a qu'une seule correspondance
                Worksheets("CLIENT").Cells(b, 2).Value = Worksheets("TAMPON").Cells(c, 4).Value ' on copie la CIP depuis tampon vers CLIENT
              Else
                ' On mets la macro en pause tant que l'utilisateur ne la relance pas (je ne sais pas comment faire)
              End If
            Loop
        Else
        b = b + 1   ' augmente compteur feuille CLIENT
        End If
    Loop

End Sub