nbControle = 5
If WSCible.Range("A2") = "" Then
'On se positionne sur la dernière ligne vide de la table de données
Set NouvelleLigne = WSCible.Cells(Rows.Count, 1).End(xlUp)
For x = 1 To nbControle
Cont1 = Format(Cont1, "General Number")
Cont2 = Format(Cont2, "General Number")
Cont4 = Format(Cont4, "General Number")
Cont5 = Format(Cont5, "General Number")
NouvelleLigne = Me.Controls("Cont" & x).Value
Set NouvelleLigne = NouvelleLigne.Offset(0, 1)
Next x
Else
Set NouvelleLigne = WSCible.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
For x = 1 To nbControle
Cont1 = Format(Cont1, "General Number")
Cont2 = Format(Cont2, "General Number")
Cont4 = Format(Cont4, "General Number")
Cont5 = Format(Cont5, "General Number")
NouvelleLigne = Me.Controls("Cont" & x).Value
Set NouvelleLigne = NouvelleLigne.Offset(0, 1)
Next x
End If