Sub Test()
For Each Cell In Selection
Range("D6,E12,G16").Select
Lignes = Lignes & Cell.Row & ","
Colonnes = Colonnes & Cell.Column & ","
Next Cell
Lignes = Left(Lignes, Len(Lignes) - 1)
Colonnes = Left(Colonnes, Len(Colonnes) - 1)
MsgBox "Le résultat est pour les lignes : " & Lignes & _
" et pour les colonnes " & Colonnes
End Sub