With Sheets("Choix multiple")
If Me.sites <> "" Then .Cells(2, 1).Formula = Me.sites Else .Cells(2, 1).ClearContents
If Me.affectations <> "" Then .Cells(2, 2).Formula = Me.affectations Else .Cells(2, 2).ClearContents
If Me.compte <> "" Then .Cells(2, 3).Formula = Me.compte Else .Cells(2, 3).ClearContents
If Me.Numimmo <> "" Then .Cells(2, 4).Formula = Me.Numimmo Else .Cells(2, 4).ClearContents
End With