Format de cellule Vba

Dim Message As String, firstAddress As String
    Set plage = Sheets("Accueil").Range("C4:C" & Range("C" & Rows.Count).End(xlUp).Row)
'ICI...................
    Set marecherche = plage.Find(Range("B3").Value).Offset(, 1)
    [B4] = marecherche
    For Each Ws In Worksheets
        With Ws
            Set c = .Range("B12").Find(What:=marecherche, LookIn:=xlValues, LookAt:=xlPart)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    Message = Message & "- dans la feuille " & Ws.Name & ", cellule " & c.Address & Chr(10)
                    Set c = .Range("B12").FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
'ICI.................
            Range("V1000").End(xlUp).Rows(2) = c

ETC.....