Erreur d'exécution '1004'

bonjour, bon j'essaie de chercher quelques informations dans la feuille "commandes internes" pour remplir le bon de sortie, je ne voyais pas comment procéder autrement sans 2 boucles imbriquées. Des boucles while semblent me donner plus de liberté dans mon code par rapport à des boucles for
concernant le message d'erreur explicite le voilà "Erreur '1004' : erreur définie par l'application ou par l'objet" ça provient de cette ligne If Sheets("commandes internes").Cells(i, 6) = bsText.Value Then
A propos des avertissements reçus, il s'agissait au fait des variables utilisées sans être définies je ne pense pas que c'est vraiment un problème
voilà ! merciii

j'ai deux feuilles : une feuille "commandes internes" où les données sont stockées et une feuille "bon de sortie" qui contient le bon de sortie.Je dois chercher dans chaque ligne i de ma première feuille la commande qui porte le même code 'bsText' une fois trouvée je remplit une ligne j de mon bon de sortie et je continue ma recherche jusqu'à ce qu'à la dernière ligne de la feuille "commandes internes". J'espère avoir été clair!
voici le code corrigé

Option Explicit
Private Sub CommandButton3_Click()

Sheets("bon de sortie").Activate
Dim s As Integer
Dim n As Integer
Dim i As Double
Dim j As Integer
s = 0
If Sheets("commandes internes").Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
 n = 2
Else
 n = Sheets("commandes internes").Cells(Rows.Count, 1).End(xlUp).Row
End If


Range("D2").Value = "N°: " + CStr(bsText.Value)

i = 2
j = 14

  While i <= n
   While j <= 29
    If Sheets("commandes internes").Cells(i, 6) = bsText.Value Then
       Range("D3").Value = "A RABAT, le " + CStr(Sheets("commandes internes").Cells(i, 7))
       Range("C11").Value = "M." + CStr(Sheets("commandes internes").Cells(i, 1))
       Cells(j, 2) = s + 1
       Cells(j, 3) = Sheets("commandes internes").Cells(i, 3)
       Cells(j, 4) = Sheets("commandes internes").Cells(i, 2)
       s = s + 1
       j = j + 1

    End If
    i = i + 1
  Wend
 Wend

End Sub

Au fait oui j'ai tenté de compter les lignes avec Sheets("commandes internes").Rows.Count mais j'obtiens un autre message d'erreur dès le départ "Erreur d'exécution 6 : Dépassement de capacité" donc j'ai remis mon premier code pour que ça s'exécute

à la fin de l'exécution, j'obtiens le message d'erreur '1004' et les valeurs de i et n respectivement sont:_ bizarrement _1048577 et 7 (correct :le nombre de lignes non vides de ma feuille commandes internes)
maintenant je pense que c'est l'incrémentation du i jusqu'à cette valeur qui cause la lenteur de l'exécution
voilà!

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.