Bonjour Lingo, ThauThème,
voici ton fichier Excel modifié :
* à l'ouverture du fichier, la cellule active est E12 ; clic sur Bouton 5
* sélectionne G16 ; clic sur Bouton 5
* sélectionne K20 ; clic sur Bouton 5
Sub Macro5()
Dim ville$, lig&, col%, ltr$
With ActiveCell
ville = .Value: If ville = "" Then Exit Sub
lig = .Row: If lig < 10 Or lig > 24 Then Exit Sub
col = .Column: If col <> 5 And col <> 7 And col <> 9 And col <> 11 Then Exit Sub
ltr = Cells(lig, 3): If ltr <> "A" Then Exit Sub
.Offset(3) = ville: If lig <= 20 Then .Offset(6) = ville
End With
End Sub
dhany