Private Sub CommandButton1_click()
'crée une nouvelle ligne au tableau en cliquant sur commandbutton1
Sheets("données FC").ListObjects("Tableau10").ListRows.Add
Dim derligne As Long
derligne = Range("c1048576").End(xlUp).Row
ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & derligne), Address:="", SubAddress:= _
"'" & Range("C" & derligne).Value & "'!A1"
'creation de la feuille de suivi