Private Sub enregistrer(£feuille1 As String, £ligne2 As Long) For i = 1 To 3
If IsNumeric(Me.Controls("T" & i)) Then
' Colonne AD = 30ème
' Inscrire les données à partir de la 30ème colonne
Sheets(£feuille1).Cells(£ligne2, 29 + i) = CDbl(Me.Controls("T" & i))
Else
Sheets(£feuille1).Cells(£ligne2, 29 + i) = Me.Controls("T" & i)
End If
Next i
End Sub