Bonsoir dubdub87,
Extrait de la macro à compléter:
Sub Ajoutez()
'
' Ajoutez Macro
'
Pays = Range("G22")
Civ = Range("C7")
Nom= Range("E7")
etc...
Sheets(Pays).Select
Lig=Range("L1")
Cells(Lig,1)=Civ
Cells(Lig,2)=Nom
etc...
Sheets("Ajouter Nouveau").Select
End Sub
Note en cellule L1 de tous les onglets pays il faut inscrire la formule (ici avec un maximum à 2000 lignes par pays)
=2001-NB.VIDE(B3:B2000)