Problème d'importation

C'est bon je viens de résoudre mon problèm. Le code est le suivant :

Sub Transfert1()
Dim WSsource As Worksheet, WScible As Worksheet
Dim Nom As String
Dim i As Integer, j As Integer

Application.ScreenUpdating = False

Workbooks.Open Filename:="H:\Nicolas\plan d'actions\mes plans d'action\Fichier 1.xls"
Set WSsource = Workbooks("Fichier 1.xls").Worksheets("Feuil1")
Set WScible = ThisWorkbook.Worksheets("Résultat_fichier1")

Nom = ThisWorkbook.Worksheets("Acceuil").Range("F2").Value

j = 2

With WSsource
For i = 1 To WSsource.Range("G65536").End(xlUp).Row
If Range("G" & i) = Nom And Range("D" & i) = 1 Then
WSsource.Rows(i).Copy Destination:=WScible.Range("A" & j)
Application.CutCopyMode = False
j = j + 1
End If
Next i
End With
Workbooks("Fichier 1.xls").Close

Application.ScreenUpdating = True
End Sub

J'ai maintenant d'autres questions pratiques : quel est le code pour

- DEmander à excel de supprimer tout ce qu'il y a écrit sur la feuille ainsi que la mise enforme des cellules????
(Cells.Select
Selection.ClearContents)

- ou demander à excel de ne copier que le texte et pas la mise en forme dans le bout de code :
WSsource.Rows(i).Copy Destination:=WScible.Range("A" & j)

Merci d'avance
a plus
koko