Effectuer des contrôles

Bonjour,

J'effectue tous les mathins les mêmes contrôles sur une feuille excel. Je ne supporte plus de faire la même chose!!! Débutant en programmation VBA je voudrais commencer par une macro toute simple pour l'étoffer petit à petit.

Je voudrais donc commencer par le premier contrôle que je fais:

Vérifier que mon tableau ne fasse pas plus de 1000 lignes. Si c'est bon, je duplique ma feuille Excel par autant de points de ventes présents. J'ai deux macros qui marchent parfaitement:

Macro 1:

Private Sub CommandButton1_Click()
Dim RgT As Range, N As Long, C As Long, FeuiR As Worksheet
Set RgT = Feuil1.[H8].CurrentRegion
Set RgT = Range(Feuil1.Rows(8), RgT.Rows(RgT.Rows.Count))
If RgT.Rows.Count > 1000 Then MsgBox "Le tableau comporte plus de 1000 lignes"
End Sub

Macro 2

Private Sub CommandButton1_Click()
Dim RgT As Range, N As Long, C As Long, FeuiR As Worksheet
For C = 15 To 256
RgT = Cells(6, C).Value
If RgT = "" Then
Exit For
End If
Set FeuiR = Worksheets.Add
FeuiR.Name = RgT
Feuil1.Columns(1).Resize(, 14).Copy FeuiR.Columns(1)
Feuil1.Columns(C).Copy FeuiR.Columns(15)
Next C
End Sub

Voici la compilation de mes 2 macros:

Private Sub CommandButton1_Click()
Dim RgT As Range, N As Long, C As Long, FeuiR As Worksheet
Set RgT = Feuil1.[H8].CurrentRegion
Set RgT = Range(Feuil1.Rows(8), RgT.Rows(RgT.Rows.Count))
If RgT.Rows.Count > 1000 Then MsgBox "Le tableau comporte plus de 1000 lignes"
For C = 15 To 256
RgT = Cells(6, C).Value
If RgT = "" Then
Exit For
End If
Set FeuiR = Worksheets.Add
FeuiR.Name = RgT
Feuil1.Columns(1).Resize(, 14).Copy FeuiR.Columns(1)
Feuil1.Columns(C).Copy FeuiR.Columns(15)
Next C
End Sub


Lorsque je la lance j'ai un message d'erreur qui s'affiche: erreur'13', incompatibilié de type. C'est au niveau de la syntaxe que ca doit coincer.

Quelqu'un peut-il me donner un coup de main?

Cordialement,

Le_Goret