voir commentaires :
Sub dis()
For Each cel In Range("B2:N14")
If cel.Row <> 1 And cel.Column <> 1 Then
If Cells(1, cel.Column).Value <> "" And Cells(cel.Row, 1).Value <> "" Then
'CI-dessous une fonction que j'utilise pour extract des données de google map mais qui ici ne marche pas
' Formule de base =GetDistance(A2;B1) A2/B1 étant de villes
cel.Formula = "=GetDistance(Cells(1, cel.Column).adress,Cells(cel.Row, 1).adress)"
Else
cel.Clear
End If
End If
Next
End Sub