Bonjour,
peut-être un ".value" à la suite de Controls("Box" & i).value
Private Sub Nouveau_SP1_Click()
Dim l As Integer
Dim i As Byte
Sheets("SIGNALETIQUE").Select '**************** Modification
l = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
For i = 1 To 31
If i = 10 Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(l, i), Address:= _
"mailto:" & Controls("box" & i).Value, TextToDisplay:=Controls("box" & i).Value
Else
Cells(l, i) = Controls("box" & i)
End If
Next
End Sub
au passage, modification de la ligne de recherche de la première ligne vide du tableau afin de s'adapter à toutes les versions d'Excel :
l = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1
Rows.Count à la place de 65536
@ bientôt
LouReeD