Bonjour, Bonsoir. J'ai un problème pour exécuter ce code correctement, à chaque fois le programme me donne l'erreur :
Run time error '-21474117848 (80010108)': Method 'Range' of object' _worksheet' failed
et la ligne 11 est mise en jaune pour signaler le point d'erreur. Merci d'aider

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sheets("FAMILY ARTICLES").Activate 'activer la feuille consernée
'Verifier si toutes les informations sont reseigné
If TextBox1 = "" Or TextBox2 = "" Then
    MsgBox ("Missing Information! / Des informations obligatoire sont manquantes!")
Else 'rechercher la ligne ou seront saisie les données et entrer la première information
If ActiveSheet.Range("B10") = "" Then
    dlt = ActiveSheet.Range("B1000000").End(xlUp).Row
    ActiveSheet.Range("B10") = Sheets("FAMILY ARTICLES").Range("A1")
Else
    dlt = ActiveSheet.Range("B1000000").End(xlUp).Row + 1
    ActiveSheet.Range("B" & dlt) = Sheets("FAMILY ARTICLES").Range("A1")
End If
With ActiveSheet
    .Range("C" & dlt) = TextBox1.Value
    .Range("D" & dlt) = TextBox2.Value
    .Range("E" & dlt) = TextBox3.Value
    .Range("F" & dlt) = Now
    .Range("G" & dlt) = Sheets("USERS").Range("P1")
 
End With