Private Sub CommandButton1_Click()
Dim listeMetier(), listeVille(), i As Integer, j As Integer, cpt As Integer
With ThisWorkbook.Sheets("Feuil1")
listeMetier = .Range("A1:A3").Value
listeVille = .Range("B1:B4").Value
.Range("D:D").Clear
For i = LBound(listeMetier) To UBound(listeMetier)
For j = LBound(listeVille) To UBound(listeVille)
cpt = cpt + 1
.Range("D" & cpt) = listeMetier(i, 1) & " " & listeVille(j, 1)
Next j
Next i
End With
End Sub