MACRO qui ne marche pas SOS

Bonjour,
En complément de ma première demande je joins ci-dessous le détail de la macro qu'on m'a donné. Malheureusement elle ne marche pas : mon classeur contient 50 feuilles les 4 premiers ont un nom comme DOS, AVTX, SOM, PARAM, puis les autres de F1 à F50. L'ongltet "avtx" qui équivaut à avancement des travaux sur les 50 feuillets sert aussi de sommaire. Donc le titre des feuillets 1 à 50 sont énumérés sur une colonne i et je pose des X dans une colonne C pour selectionner les feuilles 1 à 50 que je veux éditer automatiquement. J'ai installé un bouton pour lancer ma macro écrite comme suit : (j'ai remplacé des lettres ne connaissant pas le langage)

Sub IMPRIMAUTODOSAN()
'
'Déclaration des variables-----------------
Dim X As Long
With Sheets("AVTX")
'avec le préfixe
'début de boucle -------------------------
'***** For X = 2 To .Range("C200").End(xlUp).Row *****
'si tu testes une feuille de nom vide, tu te rettrouves avec une erreur
For X = 8 To .Range("C200").End(xlUp).Row Step 2 '*****
'Pour X = 2 jusqu'à la dernière cellule non-vide de C de menu
'par pas de 2 lignes
'le "." devant Range veut dire qu'il faut associé le préfixe défini par with
'ce qui revient à écrire Sheets("AVTX").Range("C200").End(xlUp).Row
'***** If .Range("B" & X) = "X" Then *****
'***** If UCase(.Range("C" & X)) = "X" Then *****
'si majuscules(Cx)="X" alors
'***** Sheets(F.Range("C" & X).Value).Select *****
'***** Sheets(.Range("C" & X).Value).Select *****
'sélectionner la feuille du nom dans Cx de AVTX
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'******
ActiveWindow.SelectedSheets.PrintPreview
'*****************************
'Imprimer les feuilles sélectionnées
'***** F.Range("C" & X).ClearContents *****
'End If
'Fin de test
Next X
'Fin de boucle ----------------------------
End With
'fin préfixe
End Sub

Merci de votre aide.
RV35BURO@hotmail.com