Sub Macro1()
Dim dest As Range 'déclare la variable dest
'définit la variable dest
With Sheets("Feuil2")
If .Range("C3").Value = "" Then 'si C3 est vide
Set dest = .Range("C3")
Else 'sinon la première cellule vide de la colonne C
Set dest = .Range("C14").End(xlUp).Offset(1, 0)
End If
End With
'copie et colle la cellule C3 dans la colonne C de l'onglet "Feuil2"
Sheets("Feuil1").Range("C3").Copy Destination:=dest
End Sub